Calling relevant libraries

#READING THE DATA-SET

names(candy_data_all_years)
[1] "year"                    "age"                     "trick_or_treat_yourself" "candy_name"             
[5] "emotion"                 "gender"                  "country"                

Analysis questions

1> What is the total number of candy ratings given across the three years. (number of candy ratings, not number of raters. Don’t count missing values)

candy_data_all_years %>%
  filter(!is.na(emotion)) %>%
   summarise(total_no_of_candy_ratings = n())

2> What was the average age of people who are going out trick or treating and the average age of people 3. not going trick or treating?

candy_data_all_years %>%
  group_by(trick_or_treat_yourself) %>%
  summarise( average_age = mean(age,na.rm = TRUE))
NA

3> For each of joy, despair and meh, which candy bar revived the most of these ratings?

candy_data_all_years %>%
  filter(!is.na(emotion))%>%
  group_by(emotion, candy_name) %>%
  summarise( count = n()) %>%
  filter(count == max(count))

4> How many people rated Starburst as despair?

candy_data_all_years %>%
  filter(candy_name == "starburst", emotion == "DESPAIR") %>%
  summarise (total_starburst_despair = n())

For the next three questions, count despair as -1, joy as +1 and meh as 0.

5> What was the most popular candy bar by this rating system for each gender in the dataset?

6> What was the most popular candy bar in each year?

7> What was the most popular candy bar by this rating for people in US, Canada, UK and all other countries?

LS0tCnRpdGxlOiAiUiBOb3RlYm9vayIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQojIENhbGxpbmcgcmVsZXZhbnQgbGlicmFyaWVzCmBgYHtyfQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeShoZXJlKQpsaWJyYXJ5KGphbml0b3IpCmBgYAoKI1JFQURJTkcgVEhFIERBVEEtU0VUCmBgYHtyfQpjYW5keV9kYXRhX2FsbF95ZWFycyA8LSByZWFkX2NzdihoZXJlKCJjbGVhbl9kYXRhL2NhbmR5X2FsbF95ZWFyc19wcmltYXJ5X2NsZWFuLmNzdiIpCiAgICAgICAgICAgICAgICAgICAgICAgICAgCmRpbShjYW5keV9kYXRhX2FsbF95ZWFycykKbmFtZXMoY2FuZHlfZGF0YV9hbGxfeWVhcnMpClZpZXcoY2FuZHlfZGF0YV9hbGxfeWVhcnMpCmBgYAoKCgpBbmFseXNpcyBxdWVzdGlvbnMKCjE+IFdoYXQgaXMgdGhlIHRvdGFsIG51bWJlciBvZiBjYW5keSByYXRpbmdzIGdpdmVuIGFjcm9zcyB0aGUgdGhyZWUgeWVhcnMuIChudW1iZXIgb2YgY2FuZHkgcmF0aW5ncywgbm90IG51bWJlciBvZiByYXRlcnMuIERvbuKAmXQgY291bnQgbWlzc2luZyB2YWx1ZXMpCgpgYGB7cn0KY2FuZHlfZGF0YV9hbGxfeWVhcnMgJT4lCiAgZmlsdGVyKCFpcy5uYShlbW90aW9uKSkgJT4lCiAgIHN1bW1hcmlzZSh0b3RhbF9ub19vZl9jYW5keV9yYXRpbmdzID0gbigpKQpgYGAKMj4gV2hhdCB3YXMgdGhlIGF2ZXJhZ2UgYWdlIG9mIHBlb3BsZSB3aG8gYXJlIGdvaW5nIG91dCB0cmljayBvciB0cmVhdGluZyBhbmQgdGhlIGF2ZXJhZ2UgYWdlIG9mIHBlb3BsZSAzLiBub3QgZ29pbmcgdHJpY2sgb3IgdHJlYXRpbmc/CgpgYGB7cn0KY2FuZHlfZGF0YV9hbGxfeWVhcnMgJT4lCiAgZ3JvdXBfYnkodHJpY2tfb3JfdHJlYXRfeW91cnNlbGYpICU+JQogIHN1bW1hcmlzZSggYXZlcmFnZV9hZ2UgPSBtZWFuKGFnZSxuYS5ybSA9IFRSVUUpKQoKYGBgCgozPiBGb3IgZWFjaCBvZiBqb3ksIGRlc3BhaXIgYW5kIG1laCwgd2hpY2ggY2FuZHkgYmFyIHJldml2ZWQgdGhlIG1vc3Qgb2YgdGhlc2UgcmF0aW5ncz8KYGBge3J9CmNhbmR5X2RhdGFfYWxsX3llYXJzICU+JQogIGZpbHRlcighaXMubmEoZW1vdGlvbikpJT4lCiAgZ3JvdXBfYnkoZW1vdGlvbiwgY2FuZHlfbmFtZSkgJT4lCiAgc3VtbWFyaXNlKCBjb3VudCA9IG4oKSkgJT4lCiAgZmlsdGVyKGNvdW50ID09IG1heChjb3VudCkpCmBgYAoKND4gSG93IG1hbnkgcGVvcGxlIHJhdGVkIFN0YXJidXJzdCBhcyBkZXNwYWlyPwpgYGB7cn0KY2FuZHlfZGF0YV9hbGxfeWVhcnMgJT4lCiAgZmlsdGVyKGNhbmR5X25hbWUgPT0gInN0YXJidXJzdCIsIGVtb3Rpb24gPT0gIkRFU1BBSVIiKSAlPiUKICBzdW1tYXJpc2UgKHRvdGFsX3N0YXJidXJzdF9kZXNwYWlyID0gbigpKQpgYGAKCkZvciB0aGUgbmV4dCB0aHJlZSBxdWVzdGlvbnMsIGNvdW50IGRlc3BhaXIgYXMgLTEsIGpveSBhcyArMSBhbmQgbWVoIGFzIDAuCgo1PiBXaGF0IHdhcyB0aGUgbW9zdCBwb3B1bGFyIGNhbmR5IGJhciBieSB0aGlzIHJhdGluZyBzeXN0ZW0gZm9yIGVhY2ggZ2VuZGVyIGluIHRoZSBkYXRhc2V0PwoKYGBge3J9CgpgYGAKCjY+IFdoYXQgd2FzIHRoZSBtb3N0IHBvcHVsYXIgY2FuZHkgYmFyIGluIGVhY2ggeWVhcj8KCmBgYHtyfQoKYGBgCgo3PiBXaGF0IHdhcyB0aGUgbW9zdCBwb3B1bGFyIGNhbmR5IGJhciBieSB0aGlzIHJhdGluZyBmb3IgcGVvcGxlIGluIFVTLCBDYW5hZGEsIFVLIGFuZCBhbGwgb3RoZXIgY291bnRyaWVzPwoKYGBge3J9CgpgYGAKCg==